home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / NEW / A-Newest / Quittner.d64 / tpug info-5 < prev    next >
Text File  |  2009-01-03  |  6KB  |  99 lines

  1. ║CM:TPUG-5
  2. ║PT5:CN1
  3. ├╧═╨╒╘┼╥ ├╧══╧─╧╥┼ 64 & ├64 ╔╬╞╧╥═┴╘╔╧╬-5:
  4. ║CM:┴S ON ╙EPTEMBER 26, 2007:
  5. ║CN0:PT12
  6.  
  7.      ╞OR A SIMPLE DELAY, FOR EXAMPLE TO CHECK WHETHER AN INPUT IS WITHOUT TYPING MISTAKE, DO NOTHING IF O╦, OR QUICKLY PRESS STOP IF A CHANGE IS NEEDED:
  8. 10?"┴NY INPUT HERE
  9. 12F╧I=1TO1000:N┼
  10. 14STOP
  11.  
  12.      ╧R USING, FOR EXAMPLE, THE F1 FUNCTION KEY:
  13. 20?"╔F THIS NEEDS A CHANGE PRESS F1
  14. 22F╧I=1TO1000:GETG$:IFG$=C╚(135)T╚?"╫╥╧╬╟!":STOP
  15. 24N┼
  16. 26STOP
  17.      ╞OR F1 USE 135, F3=134, F5=135, F7=136, F2=137, F4=138, F6=139, AND F8=140.
  18.  
  19.      ╧R, AS A SUBROUTINE, JUST WAITING UNTIL ANY KEY, EXCEPT THE STOP KEY, HAS BEEN PRESSED, WITH THE CURSOR BLINKING UNTIL THEN:
  20. 997 P╧204,0:GETG$:IFG$=""T╚997
  21. 998IFP┼(207)T╚998
  22. 999P╧204,1:RE╘
  23.  
  24.      ╘HAT SUBROUTINE IS USEFUL FOR MENU TREES, SUCH AS:
  25. 30 ?"         ═┼╬╒:
  26. 31 ?" 1. ╘O GO TO 1000 PRESS 1
  27. 32 ?" 2. ╘O GO TO 2000 PRESS 2
  28. 49 ?"         ╫╚╔├╚? ":GO╙997:?G$
  29. 131 IFG$="1"T╚1000
  30. 132 IFG$="2"T╚2000
  31. 199 G╧49
  32. 1000 ?"1000 HERE!":STOP
  33. 2000 ?"2000 HERE!":STOP
  34.  
  35. ║CN1
  36. ¡╝├ONSTANTS AND ╓ARIABLES IN ┬┴╙╔├:╛╜
  37. ║CN0
  38. 1) ═OSTLY USED, ONLY NUMERICAL, CONSTANTS AND VARIABLES ARE CALLED "╞LOATING POINT" BECAUSE THEIR +VE OR -VE VALUE CAN VARY WIDELY, WITH THE MINIMUM VALUE BEING ZERO OR 2.93873588E-39, AND THE MAXIMUM BEING 1.70141183E38; E MEANS "10 TO THE POWER OF". ╘HEY ARE GIVEN NAMES AT FIRST, AFTER WHICH THE USE OF A NAME CALLS THE VALUE INVOLVED. ╒NDEFINED CONSTANTS OR VARIABLES HAVE A VALUE OF ZERO. ╬AMES CAN BE ANY LENGTH, BUT ONLY THE FIRST TWO CHARACTERS ARE USED, WITH THE FIRST ONE BEING ALPHABETIC, AND THE SECOND ONE BEING EITHER ALPHABETIC OR NUMERIC. ╙OME NAMES, SUCH AS ST OR TO, CANNOT BE USED, BECAUSE ┬┴╙╔├ MAY BE USING THESE RESERVED NAMES. ╘O SEE WHETHER A CERTAIN NAME IS ACCEPTABLE TRY THIS:
  39. 10NAME=1234
  40. 20?NAME:STOP
  41.  
  42. 2) ╙TRING CONSTANTS AND VARIABLES HAVE A DOLLAR SIGN FOLLOWING THE END OF THEIR NAMES. ┴LL SORTS OF CHARACTERS (ALPHANUMERIC, SYMBOLS , CONTROL CHARACTERS, AND SPACES), BUT ╬╧╘ DOUBLE QUOTES, CAN BE PUT TOGETHER BETWEEN REQUIRED DOUBLE QUOTES, SUCH AS
  43. 50 A$="┴B1%$"
  44. 51 ?A$:REM" ╘HIS WILL PRINT IT, WILL PUT STRING A$ ONTO THE SCREEN."
  45. 52 ?"┼NTERED FROM THE KEYBOARD NO ";
  46. 53 ?"MORE THAN 80 CHARACTERS CAN FORM A STRING, BUT STRINGS CAN BE COMBINED";
  47. 54 ?" USING SEMICOLON AND PLUS MARKS. ╙TRINGS THAT HAVE NOTHING IN THEM, ";
  48. 55 ? "HAVE JUST THE 2 NEEDED DOUBLE QUOTE MARKS."
  49. 56 B$="":C$=" ╘HIS IS C$"
  50. 57 ?A$+B$+C$
  51. 58 ?"╘O PUT DOUBLE QUOTE MARKS ";  'INSIDE' A STRING USE C╚(34).
  52. 59 ?"╘RY "C╚(34)"INSIDE"C╚(34)" A STRING."
  53.      ╘O LIST A PROGRAM TYPE LIST OR L╔, END (PAIRS OF?) LINES WITH RETURN, AND FINALLY TYPE RUN TO START EXECUTION OF THE PROGRAM.
  54.  
  55. ┬┴╙╔├ STORES STRINGS IN MEMORY AT THE TIME THEY ARE USED IN PROGRAMS, AND IN PROGRAMS THAT USE STRINGS A LOT  IT EVENTUALLY RUNS OUT OF SPACE; THEN IT CLOSES DOWN OTHER ACTIVITIES, POSSIBLY FOR AS LONG AS SEVERAL MINUTES, FOR "GARBAGE COLLECTION", DISCARDING ALL NO LONGER NEEDED STORAGE OF STRINGS, THEREBY REGAINING SPACE FOR MORE STRING STORAGE - UNTIL THE NEXT GARBAGE COLLECTION. ╩UST WAIT WHILE THIS IS GOING ON, EVEN THOUGH IT LOOKS LIKE A MAJOR MALFUNCTION OF THE COMPUTER.
  56.  
  57. 3) ╘HERE ARE ALSO ╔NTEGRAL CONSTANTS AND VARIABLES. ╘HEY HAVE A % MARK AT THE END OF THEIR NAMES, AND ARE LIMITED TO THE RANGE MINUS 32768 TO PLUS 32767.
  58.  
  59. 4) ┴RRAYS ARE A FAMILY OF CONSTANTS OR VARIABLES; THEY ARE EITHER NUMERIC (FLOATING POINT OR INTEGER) OR STRINGS, AND, UNLESS ONLY ONE DIMENSION WITH NO MORE THAN 10 ELEMENTS, MUST HAVE BEEN DEFINED BY A DIMENSION (DIM) STATEMENT (UP TO 255 DIMENSIONS, WITH UP TO 32767 ELEMENTS PER DIMENSION) BEFORE THEY ARE USED. ╔NTEGER ARRAYS CAN SAVE A LOT OF MEMORY SPACE. ╞OR EXAMPLE DIM A(11) PERMITS A(0), A(1), ... A(10) AND A(11) TO BE USED. ╙IMILARLY, DIM A$(11) PERMITS A$(0) TO A$(11), AND A%(11) ALSO A%(0) TO A%(11) TO BE USED.
  60.      ╞OR ANOTHER EXAMPLE, IN A GRAPHICS APPLICATION 5 X-Y PAIRS CAN BE PUT INTO AN ARRAY DIMENSIONED AS XY(4,1); THE FIRST X WILL THEN GO INTO XY(0,0), THE FIRST Y INTO XY(0,1), THE 2ND X INTO XY(1,0), THE 2ND Y INTO XY(1,1) .... THE 5TH X INTO XY(4,0), AND THE 5TH Y INTO XY(4,1).
  61.      ╚ERE IS A SUBROUTINE TO SHOW FLOATING POINT AND STRING VARIABLES:
  62. 10 A= 12.345:A$= "┼XAMPLE ONLY":GOSUB 42000:PRINTA$:END
  63. 42000REM"╓ARIABLES USED SO FAR. ┬Y ╩OE ╤UITTNER, ╘╨╒╟, ╧CTOBER 18, 2007.
  64. 42002 PRINT CHR$(144)CHR$(14)
  65. 42010 DEFFNC(XI)=PEEK(XI)+256*PEEK(XI+1)
  66. 42012 FOR XI=FNC(45)TOFNC(47)-1STEP 7
  67. 42014 IF PEEK(XI)>127 OR PEEK(XI+1)>127 THEN NEXT :GOTO42040
  68. 42015 XP$=CHR$(PEEK(XI)):XQ$=CHR$(PEEK(XI+ 1))
  69. 42016 IF XP$="X"AND (XQ$="A"OR XQ$="B"OR XQ$="C"OR XQ$="D"OR XQ$="E")THEN 42039
  70. 42017 IF XP$="X"AND (XQ$="I"ORXQ$="J"ORXQ$="Y")THEN42039
  71. 42018 IF XP$="Y"AND XQ$="B"THEN 42039
  72. 42019 PRINTCHR$(PEEK(XI))CHR$(PEEK(XI+ 1))"=";
  73. 42020 :XA=PEEK(XI+ 2)-129:XA=2^XA
  74. 42022 YB=PEEK(XI+ 3):XB=(YBAND 127)/ 128:IF YB>127THEN XA=-XA
  75. 42024 XC=PEEK(XI+ 4):XC=XC/32768
  76. 42026 XD=PEEK(XI+ 5):XD=XD/8388608
  77. 42028 XE=PEEK(XI+ 6):XE= XE/2147483648
  78. 42030 XY=XB+XC+XD+XE:XY=XA*(1+ XY)
  79. 42038 PRINT XY
  80. 42039 :NEXT :GOSUB 42060
  81. 42040 :REM " ╙╘╥╔╬╟╙
  82. 42042 FOR XI=FNC(45)TOFNC(47)-1STEP7
  83. 42044 IFPEEK(XI)>128ORPEEK(XI+1)<128THEN42056
  84. 42045 XP$=CHR$(PEEK(XI)):XQ$=CHR$(PEEK( XI+1)AND127)
  85. 42046 IF XP$="X"AND (XQ$="A"ORXQ$="P"ORXQ$="Q"ORXQ$="Y") THEN42056
  86. 42047 PRINT XP$XQ$"$=";
  87. 42050 XA=PEEK(XI+2)
  88. 42052 XB=PEEK(XI+3)
  89. 42054 XC=PEEK(XI+4):XC=XB+256*XC
  90. 42055 FORXJ=XCTOXC+XA-1:XP$=CHR$(PEEK(XJ)):PRINTXP$;:NEXT:PRINT
  91. 42056 :NEXT
  92. 42059 GOSUB42060:RETURN 
  93. 42060 POKE204,0:GETXA$:IFXA$=""T╚42060
  94. 42061 IFPEEK(207) T╚ 42061
  95. 42062 POKE204,1:RE╘
  96.  
  97. ║PT20:CN1
  98.    ┬Y ╩OE ╤UITTNER, ╘╨╒╟, ╧CTOBER 18, 2007
  99.